home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / utilities / pu295.dms / pu295.adf / Logging / IARULog / IARULOG.BAS < prev    next >
BASIC Source File  |  1988-12-21  |  15KB  |  443 lines
  1. ' IARULOG.BAS version 1.2
  2. ' Amiga Version by John Gager-K7KB
  3. ' Copyright (© 1986,1987 by Clarke Greene K1JX)  NOT FOR COMMERCIAL USE
  4. '
  5. ' This Microsoft (tm) BASIC program will build a complete log package
  6. ' for the IARU HF Championship.
  7. '
  8. ' The file containing the log entries must be an ASCII file in the
  9. ' following format:
  10. ' 
  11. '               (each band requires a separate log entry file)
  12. '
  13. ' TIME       CALLSIGN        RCV'D REPORT  (each log entry must be
  14. '                                          followed by a carriage return)
  15. '
  16. ' At least one space must be between each field of each log entry. Only
  17. ' a changed digit in the time field must be present; for example, if the
  18. ' contest begins at 1800Z and the first contact is made at 1802Z and the
  19. ' second contact is made at 1805Z, then only 5 need be entered in the
  20. ' time field. If the third contact is made at 1812Z, then 12 should be
  21. ' entered in the time field. If the next contact is made at 1812Z, then
  22. ' no number need be entered in the time field (however, be sure to enter
  23. ' a space to indicate separation between fields).
  24. '
  25. ' These files will be produced:
  26. '
  27. ' <filename>.LOG - this is a complete log ready for printing
  28. ' <filename>.DUP - this is a sorted duplicate listing ready for printing
  29. ' <filename>.SUM - this is a summary sheet ready for printing
  30. '
  31. '
  32. ' Depending on the version of BASIC for your particular machine, the CLS
  33. ' (Clear Screen) command must be changed. Consult your own computer's
  34. ' BASIC documentation for more information.
  35. '
  36. '
  37. ' If compiling (a VERY good idea for several orders of magnitude
  38. ' improvement in speed), use O and E switches. 
  39. '
  40. ' This program also uses a prefix library file (DXPREFIX.LIB), which MUST
  41. ' be on the same disc (and in the same subdirectory) as this program.
  42. '
  43. ' Define arrays and variables
  44. '
  45. CLEAR ,70000&:DEFINT A-Z : OPTION BASE 1
  46. DIM ENTRY$(1500), MULT$(100), PFX$(1000), CNT$(1000), WIERDPFX$(50), WIERDCNT$(50), Q(100)
  47. BLANK$=" " : BL$="" : SLANT$="/" : TRUE=-1
  48. DUPE$="- Duplicate QSO -" : NEWZONE$="    Mult. #"
  49. CONTINENTS$="AFASEUNAOCSA"
  50. '
  51. ' Define format strings for printouts
  52. '
  53. LOGFORM$="   \      \  \  \   \           \    \   \    \        \ #   \                \"
  54. DUPFORM$="      \         \   \          \   \          \   \          \   \          \"
  55. SUMFORM$="     \         \    \         \    \         \    \         \    \         \"
  56. '
  57. CLS
  58. COLOR 3 : PRINT : PRINT TAB(24) "IARU HF Competition Log Processor" : COLOR 1 : PRINT
  59. '
  60. '  Read prefix table file
  61. '
  62. PRINT TAB(5)  "Reading prefix library...";
  63. I=0 ' initialize array subscript
  64. OPEN ":DXPREFIX.LIB" FOR INPUT AS #1
  65. WHILE NOT EOF(1)
  66.   I=I+1
  67.   INPUT #1, PFX$(I), DUMMY$, DUMMY$, CNT$(I) ' DUMMY$ is a dummy variable
  68.                                              ' for unused data
  69. WEND
  70. CLOSE
  71. TABLESIZE=I ' prefix table length
  72. COLOR 3 : PRINT "Done" : COLOR 1
  73. '
  74. '  Get user input
  75. '
  76. PRINT : PRINT TAB(5) "What is the station callsign? ";
  77. INPUT "", MYCALL$:MYCALL$=UCASE$(MYCALL$)
  78. THISENTRY$=MYCALL$ : IF INSTR(THISENTRY$,SLANT$)>0 THEN GOSUB GetPortPrefix ELSE THISPFX$=LEFT$(THISENTRY$,4)
  79. GOSUB SearchPrefix : IF NOT INLIST THEN GOSUB SearchWierd
  80.                      ' If the prefix can't be found
  81.                      ' in table, look elsewhere.
  82. MYCNT$=THISCNT$
  83.  
  84. GetZone:
  85.  
  86. PRINT : PRINT TAB(5) "What is the station's zone? ";
  87. INPUT "", MYZONE$
  88. IF VAL(MYZONE$)>=1 AND VAL(MYZONE$)<=75 GOTO GoodZone
  89. PRINT CHR$(7) : PRINT TAB(8) "Is '"; MYZONE$; "' correct? <Y/N>  ";
  90. INPUT "", ANS$ : IF UCASE$(ANS$)<>"Y" GOTO GetZone
  91.  
  92. GoodZone:
  93.  
  94. IF VAL(MYZONE$)<10 AND LEN(MYZONE$)=1 THEN MYZONE$="0"+MYZONE$
  95. PRINT : PRINT TAB(5) "What is the beginning date of the contest";
  96. COLOR 3 : PRINT" <DD/MM/YR>: "; : COLOR 1
  97. INPUT "", STARTDATE$
  98. MARK=INSTR(STARTDATE$,"/") : IF MARK=0 THEN MARK=INSTR(STARTDATE$,"-")
  99. STARTDAY=VAL(LEFT$(STARTDATE$,MARK-1))
  100. STARTDATE$=RIGHT$(STARTDATE$,LEN(STARTDATE$)-MARK)
  101. MARK=INSTR(STARTDATE$,"/") : IF MARK=0 THEN MARK=INSTR(STARTDATE$,"-")
  102. MON$=" July  "
  103. YR$=RIGHT$(STARTDATE$,LEN(STARTDATE$)-MARK)
  104. PRINT : PRINT TAB(5) "What is the GMT starting time for the contest? ";
  105. INPUT "", STARTGMT$
  106.  
  107. GetLog:
  108.  
  109. PRINT : PRINT TAB(5) "What file is the log extract located in? ";
  110. INPUT "", INFILE$ : GOSUB CheckForFile ' check to see if file is valid
  111. IF INSTR(INFILE$,".")<>0 THEN OUTFILE$=LEFT$(INFILE$,INSTR(INFILE$,".")-1) ELSE OUTFILE$=INFILE$
  112. PRINT : PRINT TAB(5) "What frequency band is the log extract for? ";
  113. INPUT "", BAND$
  114. PRINT : PRINT TAB(5) "Which mode is the log extract for?"
  115. PRINT TAB(5) "[Type 1 for CW or 2 for Phone] : ";
  116. INPUT "", MODE
  117. IF MODE=1 THEN RST$="599" ELSE RST$="59"
  118. SENT$=RST$+MYZONE$
  119. '
  120. '  Build log file
  121. '
  122. CLS
  123. PRINT : PRINT TAB(5) "Duping and counting...";
  124. '
  125. '  Clear arrays
  126. '
  127. FOR I=1 TO 1500
  128.   ENTRY$(I)=BL$
  129. NEXT I
  130. FOR I=1 TO 100
  131.   MULT$(I)=BL$
  132.   Q(I)=1
  133. NEXT I
  134. '
  135. '  Initialize variables
  136. '
  137. RAWTOTAL=0 : QSOS=0 : DUPES=0 : MULTNR=0 : TOTPOINTS=0
  138. DAY=STARTDAY : PREVIOUSGMT$=STARTGMT$
  139. '
  140. '  Open input file and ouput .LOG file
  141. '
  142. OPEN INFILE$ FOR INPUT AS #1 LEN=5000
  143. OPEN OUTFILE$+".LOG" FOR OUTPUT AS #2 LEN=5000
  144. '
  145. '  Input data, process, and enter into output file
  146. '
  147. WHILE NOT EOF(1)
  148.   LINE INPUT #1, THISENTRY$ ' read entire line from disc file
  149.   IF LEN(THISENTRY$)=0 THEN GOTO SkipEntry
  150.   WHILE ASC(RIGHT$(THISENTRY$,1))<48 AND LEN(THISENTRY$)>0
  151.     THISENTRY$=LEFT$(THISENTRY$,LEN(THISENTRY$)-1) ' Strip off trailing
  152.                                                    ' spaces, etc.
  153.   WEND
  154.   IF LEN(THISENTRY$)>0 THEN RAWTOTAL=RAWTOTAL+1 ELSE GOTO SkipEntry
  155. '
  156. '  Separate received report from THISENTRY$
  157. '
  158.   RCVD$=BL$ ' initialize rcvd field to blank
  159.   WHILE ASC(RIGHT$(THISENTRY$,1))>=48
  160.     RCVD$=RIGHT$(THISENTRY$,1)+RCVD$
  161.     THISENTRY$=LEFT$(THISENTRY$,LEN(THISENTRY$)-1)
  162.   WEND
  163.   IF LEN(RCVD$)<(LEN(RST$)+2) OR ASC(RCVD$)>=65 THEN RCVD$=RST$+RCVD$
  164.   WHILE ASC(RIGHT$(THISENTRY$,1))<48
  165.     THISENTRY$=LEFT$(THISENTRY$,LEN(THISENTRY$)-1) ' Strip off trailing
  166.                                                    ' spaces, etc.
  167.   WEND
  168. '
  169. '  Separate GMT from THISENTRY$
  170. '
  171.   WHILE ASC(LEFT$(THISENTRY$,1))<48
  172.     THISENTRY$=RIGHT$(THISENTRY$,LEN(THISENTRY$)-1) ' Strip off leading
  173.                                                     ' spaces.
  174.   WEND
  175.   IF INSTR(THISENTRY$,BLANK$)<>0 THEN GMT$=LEFT$(THISENTRY$,INSTR(THISENTRY$,BLANK$)-1) ELSE GMT$=BL$
  176.   THISENTRY$=RIGHT$(THISENTRY$,(LEN(THISENTRY$)-LEN(GMT$)))
  177.   WHILE LEFT$(THISENTRY$,1)=BLANK$
  178.     THISENTRY$=RIGHT$(THISENTRY$,LEN(THISENTRY$)-1) ' Strip off leading
  179.                                                     ' spaces.
  180.   WEND
  181. '
  182. '  Fill in missing time data
  183. ' 
  184.   GMT$=LEFT$(PREVIOUSGMT$,(4-LEN(GMT$)))+GMT$
  185.   THEDATE$=BL$ : IF GMT$<PREVIOUSGMT$ THEN DAY=DAY+1 : THEDATE$=STR$(DAY)+MON$
  186. '
  187. '  Check for dupes
  188. '
  189.   THISENTRY$=UCASE$(THISENTRY$)
  190.   DUPE.QSO=NOT TRUE : NOTE$=BL$ ' blank note
  191.   FOR I=1 TO QSOS
  192.     IF LEN(ENTRY$(I))<>LEN(THISENTRY$) GOTO NotDupe
  193.     IF ENTRY$(I)=THISENTRY$ THEN NOTE$=DUPE$ : DUPES=DUPES+1 : POINTS=0 : DUPE.QSO=TRUE : I=QSOS
  194.   NotDupe: NEXT I
  195.   IF DUPE.QSO GOTO WriteEntry ' Skip over prefix search if
  196.                               ' this entry is a dupe.
  197.   QSOS=QSOS+1 : ENTRY$(QSOS)=THISENTRY$
  198. '
  199. '  Determine "zone" and search through multiplier table
  200. '
  201.   THISZONE$=RIGHT$(RCVD$,LEN(RCVD$)-LEN(RST$))
  202.   NEWMULT=TRUE ' initially call contact a new multiplier
  203.   FOR I=1 TO MULTNR
  204.     IF MULT$(I)=THISZONE$ THEN Q(I)=Q(I)+1 : NEWMULT=NOT TRUE : I=MULTNR
  205.   NEXT I
  206.   IF NEWMULT THEN MULTNR=MULTNR+1 : MULT$(MULTNR)=THISZONE$ : NOTE$=NEWZONE$+STR$(MULTNR)
  207.   IF ASC(THISZONE$)>=65 OR THISZONE$=MYZONE$ THEN POINTS=1 : GOTO Totals
  208. '
  209. '  Determine prefix and search prefix library for contact continent
  210. '
  211. IF INSTR(THISENTRY$,SLANT$)>0 THEN GOSUB GetPortPrefix ELSE THISPFX$=LEFT$(THISENTRY$,4)
  212. GOSUB SearchPrefix : IF NOT INLIST THEN GOSUB SearchWierd
  213.                      ' If the prefix can't be found
  214.                      ' in table, look elsewhere.
  215. '
  216. '  Resolve USA prefix ambiguities (i.e. KG6=Guam vs. KG6=Calif.) and
  217. '  calculate points.
  218. '
  219.   IF LEFT$(THISPFX$,1)="K" AND (VAL(THISZONE$)=6 OR VAL(THISMULT$)=7 OR VAL(THISMULT$)=8) THEN THISCNT$="NA"
  220.   IF THISCNT$=MYCNT$ THEN POINTS=3 ELSE POINTS=5
  221. '
  222. '  Total QSO points
  223. '
  224. Totals:
  225.  
  226.   TOTPOINTS=TOTPOINTS+POINTS
  227. '
  228. '  Write entry to file
  229. '
  230. WriteEntry:
  231.   
  232.   IF (RAWTOTAL-1) MOD 50=0 THEN GOSUB PrintHeader ' Print header if this
  233.                                                   ' is the beginning of
  234.                                                   ' a page.
  235.   PRINT #2, USING LOGFORM$; THEDATE$; GMT$; THISENTRY$; SENT$; RCVD$; POINTS; NOTE$
  236.   IF RAWTOTAL MOD 50=0 THEN PRINT #2, CHR$(12) ' Print a form feed if
  237.                                                ' this is the end of page.
  238.   PREVIOUSGMT$=GMT$ : GMT$=BL$
  239.   
  240. SkipEntry:
  241. WEND
  242.  
  243. IF RAWTOTAL MOD 50<>0 THEN PRINT #2, CHR$(12) ' If a form feed hasn't
  244.                                               ' been printed, then print
  245.                                               ' one now.
  246. CLOSE
  247. COLOR 3 : PRINT "Done" : COLOR 1
  248. '
  249. '  Build dupe sheet
  250. '
  251. PRINT : PRINT TAB(5) "Preparing dupe sheet...";
  252. '
  253. '  Sort callsigns for dupe sheet
  254. '
  255. M=QSOS\2
  256. WHILE M>0
  257.   FOR I=M+1 TO QSOS
  258.     J=I-M
  259.     WHILE J>0
  260.       IF ENTRY$(J)>ENTRY$(J+M) THEN SWAP ENTRY$(J),ENTRY$(J+M) : J=J-M ELSE J=0
  261.     WEND
  262.   NEXT I
  263.   M=M\2
  264. WEND
  265. '
  266. '  Enter dupe sheet into file
  267. '
  268. OPEN OUTFILE$+".DUP" FOR OUTPUT AS #1
  269. IF QSOS MOD 250=0 THEN LASTPAGE=QSOS\250 ELSE LASTPAGE=QSOS\250+1
  270. FOR PAGE=1 TO LASTPAGE
  271.   PRINT #1, SPC(20-(LEN(MYCALL$)+LEN(BAND$))/2); MYCALL$; " -- Dupe Sheet for ";
  272.   PRINT #1, BAND$; " MHz Band -- Page"; STR$(PAGE)
  273.   PRINT #1, BL$ : PRINT #1, BL$
  274.   FOR ROW=1 TO 50
  275.     E=(PAGE-1)*250+ROW
  276.     PRINT #1, USING DUPFORM$; ENTRY$(E); ENTRY$(E+50); ENTRY$(E+100); ENTRY$(E+150); ENTRY$(E+200)
  277.   NEXT ROW
  278.   PRINT #1, CHR$(12) ' go to next page
  279. NEXT PAGE
  280. CLOSE
  281. COLOR 3 : PRINT "Done" : COLOR 1
  282. '
  283. '  Build summary listing
  284. '
  285. PRINT : PRINT TAB(5) "Preparing summary sheet...";
  286. '
  287. '  Sort multipliers for summary sheet
  288. '
  289. M=MULTNR\2
  290. WHILE M>0
  291.   FOR I=M+1 TO MULTNR
  292.     J=I-M
  293.     WHILE J>0
  294.       IF MULT$(J)>MULT$(J+M) THEN SWAP MULT$(J),MULT$(J+M) : SWAP Q(J),Q(J+M) : J=J-M ELSE J=0
  295.     WEND
  296.   NEXT I
  297.   M=M\2
  298. WEND
  299. '
  300. '  Append number of qsos per zone onto zone numbers
  301. '
  302. FOR I=1 TO MULTNR
  303.   MULT$(I)=MULT$(I)+SPACE$(6-LEN(MULT$(I)))+" -"+STR$(Q(I))
  304. NEXT I
  305. '
  306. '  Enter summary sheet into file
  307. '
  308. OPEN OUTFILE$+".SUM" FOR OUTPUT AS #1
  309. PRINT #1, SPC(8-(LEN(MYCALL$)+LEN(BAND$))/2); MYCALL$; " -- Summary Sheet for "; BAND$;
  310. PRINT #1, " MHz Band - "; YR$; " IARU HF Championship" 
  311. PRINT #1, BL$
  312. PRINT #1, TAB(11); "Multiplier Listing and number of contacts per multiplier"
  313. PRINT #1, BL$ : PRINT #1, BL$
  314. IF MULTNR MOD 5=0 THEN LASTROW=MULTNR\5 ELSE LASTROW=MULTNR\5+1
  315. FOR ROW=1 TO LASTROW
  316.   PRINT #1, USING SUMFORM$; MULT$(ROW); MULT$(ROW+LASTROW); MULT$(ROW+LASTROW*2); MULT$(ROW+LASTROW*3); MULT$(ROW+LASTROW*4)
  317. NEXT ROW
  318. PRINT #1, BL$ : PRINT #1, BL$ : PRINT #1, BL$
  319. PRINT #1, TAB(17); "Total Valid QSOs - "; STR$(QSOS); TAB(45); "Dupes - "; STR$(DUPES)
  320. PRINT #1, TAB(17); "Total QSO points - "; STR$(TOTPOINTS)
  321. PRINT #1, TAB(17); "Multipliers - "; STR$(MULTNR)
  322. CLOSE
  323. COLOR 3 : PRINT "Done" : COLOR 1
  324. '
  325. '  Print results
  326. '
  327. CLS : PRINT CHR$(7)
  328. PRINT : PRINT TAB(5) "Results for the "; BAND$; " MHz band":PRINT 
  329. PRINT TAB(8) "Valid QSOs:"; : COLOR 3 : PRINT USING"          ####";QSOS : COLOR 1
  330. PRINT TAB(8) "Duplicate QSOs:"; : COLOR 3 : PRINT USING"        ##";DUPES : COLOR 1
  331. PRINT TAB(8) "Total QSO points:"; : COLOR 3 : PRINT USING" ######,";TOTPOINTS : COLOR 1
  332. PRINT TAB(8) "Multipliers:"; : COLOR 3 : PRINT USING"          ###";MULTNR : COLOR 1
  333. PRINT : PRINT : PRINT 
  334. PRINT TAB(5) "Type "; : COLOR 3 :PRINT "C"; : COLOR 1
  335. PRINT" to continue with another band,"
  336. PRINT TAB(5) "or any other key to Exit ";
  337. ANS$=INPUT$(1)
  338. IF UCASE$(ANS$)="C" THEN CLS : GOTO GetLog ELSE CLS : END
  339. '
  340. '  Subroutine to trap missing file
  341. '
  342. CheckForFile:
  343.  
  344. ON ERROR GOTO NoFile:
  345. OPEN INFILE$ FOR INPUT AS #1 ' try opening file
  346. ON ERROR GOTO 0
  347. CLOSE
  348. RETURN
  349.  
  350. NoFile:
  351.  
  352. PRINT CHR$(7) : PRINT TAB(4) "That file does not exist - type X to Exit or any other key to continue ";
  353. ANS$=INPUT$(1) : IF UCASE$(ANS$)="X" THEN CLS : END
  354. PRINT 
  355. RESUME GetLog
  356. '
  357. '  Subroutine to determine prefix from portable designator
  358. '
  359. GetPortPrefix:
  360.  
  361. MARK=INSTR(THISENTRY$,SLANT$)
  362. IF MARK>3 THEN THISPFX$=RIGHT$(THISENTRY$,LEN(THISENTRY$)-MARK) ELSE THISPFX$=LEFT$(THISENTRY$,MARK-1)
  363. IF LEN(THISPFX$)>1 GOTO ReturnPfx ' have prefix - return
  364. IF ASC(THISPFX$)>58 OR ASC(THISPFX$)<47 THEN THISPFX$=LEFT$(THISENTRY$,4) : GOTO ReturnPfx
  365. K=2 ' find position of first numeral in call
  366. WHILE (ASC(MID$(THISENTRY$,K,1))>57 OR ASC(MID$(THISENTRY$,K,1))<48) AND K<LEN(THISENTRY$)
  367.   K=K+1
  368. WEND
  369. THISPFX$=LEFT$(THISENTRY$,K-1)+THISPFX$ ' new prefix = portable number
  370.                                         ' in old prefix
  371. ReturnPfx:
  372. RETURN
  373. '
  374. '  Subroutine to determine station's continent from prefix
  375. '
  376. SearchPrefix:
  377.  
  378. K=4 : INLIST=NOT TRUE : SAVEDPFX$=THISPFX$
  379. WHILE K>0 AND INLIST=NOT TRUE
  380.   THISPFX$=LEFT$(THISPFX$,K)
  381.   LOW=1 : HIGH=TABLESIZE : INLIST=NOT TRUE ' Initial values for 
  382.                                            ' binary sort.
  383.   WHILE LOW<=HIGH AND INLIST=NOT TRUE
  384.     L=(LOW+HIGH)\2
  385.     IF THISPFX$=PFX$(L) THEN INLIST=TRUE : THISCNT$=CNT$(L)
  386.     IF THISPFX$<PFX$(L) THEN HIGH=L-1 ELSE LOW=L+1
  387.   WEND
  388.   K=K-1
  389. WEND
  390. RETURN
  391. '
  392. '  Subroutine to search unusual prefix list
  393. '
  394. SearchWierd:
  395.  
  396. IF NRWIERDPFX=0 GOTO GetPrefix ' If the supplementary prefix list is
  397.                                ' empty, then skip ahead.
  398. K=4
  399. WHILE K>0
  400.   SAVEDPFX$=LEFT$(SAVEDPFX$,K)
  401.   FOR J=1 TO NRWIERDPFX
  402.     IF SAVEDPFX$=WIERDPFX$(J) THEN INLIST=TRUE : THISCNT$=WIERDCNT$(J) : J=NRWIERDPFX : K=1
  403.   NEXT J
  404.   K=K-1
  405. WEND
  406. IF INLIST THEN RETURN ' If the prefix was found, then return.
  407. '
  408. '  Routine to get prefix definition and continent
  409. '  from user for prefix not found in library.
  410. '
  411. GetPrefix:
  412.  
  413. CLS:PRINT CHR$(7) : PRINT
  414. PRINT TAB(5) "The prefix for "; : COLOR 3 : PRINT THISENTRY$;
  415. COLOR 1 : PRINT" can't be found in the prefix library."
  416. PRINT : PRINT TAB(5) "What is the callsign prefix? "; 
  417. INPUT "", THISPFX$ : THISPFX$=UCASE$(THISPFX$)
  418. NRWIERDPFX=NRWIERDPFX+1 : WIERDPFX$(NRWIERDPFX)=THISPFX$
  419.  
  420. GetContinent:
  421.  
  422. PRINT : PRINT TAB(5) "What is the continent? [AF, AS, EU, NA, OC, SA] ";
  423. INPUT "", THISCNT$ : THISCNT$=UCASE$(THISCNT$)
  424. FOR J=1 TO 11 STEP 2
  425.   IF THISCNT$=MID$(CONTINENTS$,J,2) THEN INLIST=TRUE : J=11
  426. NEXT J ' Check for valid continent name
  427. IF NOT INLIST THEN PRINT CHR$(7);: GOTO GetContinent
  428. WIERDCNT$(NRWIERDPFX)=THISCNT$
  429. CLS : PRINT : PRINT TAB(5) "Back to duping and counting...";
  430. RETURN
  431. '
  432. '  Subroutine to print log sheet header
  433. '
  434. PrintHeader:
  435.  
  436. PRINT #2, BL$
  437. PRINT #2, TAB(5); MYCALL$; "  "; BAND$; " MHz Log"; TAB(70); "Page"; STR$(RAWTOTAL\50+1)
  438. PRINT #2, BL$
  439. PRINT #2, "     Date    Time   Callsign         Sent     Rcvd      Pt.        Notes"
  440. PRINT #2, "   "; STRING$(74,61)
  441. THEDATE$=STR$(DAY)+MON$
  442. RETURN 
  443.